program ej13; { Ejemplo 13 de CpcPaChi }
var
  color: byte;  
  
begin
  cpcMode(1);
  (* Prueba de for *)
  locate(10,5);
  paper(0);
  for color := 1 to 3 do
    begin
    pen(color);
    writeChar('*');
    end;

    (* Prueba de while *)
  locate(10,7);
  paper(1);
  color := 2;
  while color < 3 do
    begin
    pen(color);
    writeChar('+');
    inc(color);
    end;

    (* Prueba de repeat *) 
    
  locate(10,9); 
  paper(3);
  color := 2;
  repeat
    pen(color);
    writeChar('@');
    dec(color);
  until color = 0;
    
  paper(0);
  pen(1);
end.

